home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / MineKeygen.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-04  |  4.8 KB  |  158 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Key Generator for Volatility's CrackersConvert v1.0 by Eternal Bliss"
  4.    ClientHeight    =   2355
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6165
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2355
  13.    ScaleWidth      =   6165
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command3 
  16.       Caption         =   "&Copy to Clipboard"
  17.       BeginProperty Font 
  18.          Name            =   "Arial"
  19.          Size            =   12
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   495
  27.       Left            =   2160
  28.       TabIndex        =   3
  29.       Top             =   1560
  30.       Width           =   2295
  31.    End
  32.    Begin VB.CommandButton Command2 
  33.       Caption         =   "&Quit"
  34.       BeginProperty Font 
  35.          Name            =   "Arial"
  36.          Size            =   12
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   495
  44.       Left            =   4680
  45.       TabIndex        =   4
  46.       Top             =   1560
  47.       Width           =   1215
  48.    End
  49.    Begin VB.TextBox Text1 
  50.       BeginProperty Font 
  51.          Name            =   "Arial"
  52.          Size            =   12
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   375
  60.       Left            =   2280
  61.       TabIndex        =   1
  62.       Top             =   240
  63.       Width           =   2415
  64.    End
  65.    Begin VB.CommandButton Command1 
  66.       Caption         =   "&Get Password"
  67.       BeginProperty Font 
  68.          Name            =   "Arial"
  69.          Size            =   12
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   495
  77.       Left            =   120
  78.       TabIndex        =   2
  79.       Top             =   1560
  80.       Width           =   1815
  81.    End
  82.    Begin VB.Label Label3 
  83.       AutoSize        =   -1  'True
  84.       Caption         =   "Your Password Is:"
  85.       BeginProperty Font 
  86.          Name            =   "Arial"
  87.          Size            =   12
  88.          Charset         =   0
  89.          Weight          =   400
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   270
  95.       Left            =   120
  96.       TabIndex        =   5
  97.       Top             =   840
  98.       Width           =   1860
  99.    End
  100.    Begin VB.Label Label2 
  101.       AutoSize        =   -1  'True
  102.       Caption         =   "Enter Your &Handle :"
  103.       BeginProperty Font 
  104.          Name            =   "Arial"
  105.          Size            =   12
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   270
  113.       Left            =   120
  114.       TabIndex        =   0
  115.       Top             =   240
  116.       Width           =   1995
  117.    End
  118.    Begin VB.Label Label1 
  119.       BorderStyle     =   1  'Fixed Single
  120.       BeginProperty Font 
  121.          Name            =   "Arial Black"
  122.          Size            =   14.25
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   495
  130.       Left            =   2280
  131.       TabIndex        =   6
  132.       Top             =   840
  133.       Width           =   3735
  134.    End
  135. Attribute VB_Name = "Form1"
  136. Attribute VB_GlobalNameSpace = False
  137. Attribute VB_Creatable = False
  138. Attribute VB_PredeclaredId = True
  139. Attribute VB_Exposed = False
  140. Private Sub Command1_Click()
  141. On Error Resume Next
  142. Dim han, Decy
  143. han = Text1.Text
  144. If han = "" Then
  145. MsgBox "You have to enter something!!", vbOKOnly + vbCritical, "Handle field cannot be left empty"
  146. GoTo Nex
  147. End If
  148. Decy = Asc(han)
  149. Decy = Decy * 20
  150. Label1.Caption = "REG-" & Decy & "-CODE"
  151. End Sub
  152. Private Sub Command2_Click()
  153. End Sub
  154. Private Sub Command3_Click()
  155. Clipboard.Clear
  156. Clipboard.SetText Label1.Caption
  157. End Sub
  158.